home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / PublicDomain / Spiele / HitTiles2SE / HitTiles2SE_Installer < prev    next >
Text File  |  2000-04-12  |  4KB  |  201 lines
  1.  
  2. ; HIT TILES 2 SPECIAL EDITION Installer script (for registered user)
  3. ; $VER: HIT PUZZLE 2 SPECIAL EDITION Install 1.1a
  4. ; written by HITMAN
  5.  
  6.  
  7. ; Spazio richiesto su disco da HIT TILES 2 SE
  8. (set size_of_hp 865000)
  9.  
  10.  
  11. (set #hittiles2se-location
  12. (cat "Where I should install HIT TILES 2 SPECIAL EDITION?\n(A directory will be created)\n"
  13. ))
  14.  
  15.  
  16. (set #icone-install
  17. (cat "\nDo you want the icons at 8 colours?"
  18. ))
  19.  
  20.  
  21. ; Chiede destinazione
  22. (set @new-dest
  23. (askdir
  24. (prompt #hittiles2se-location)
  25. (help @askdir-help)
  26. (default "SYS:")))
  27.  
  28.  
  29. ; Controlla se copia su se stesso
  30. (set @SeStesso
  31. (cat @new-dest"HitTiles2SE/HitTiles2SE_Installer"
  32. ))
  33.  
  34. (if (= @icon @SeStesso)
  35.   (abort
  36.     "You can't copy these files over themselves\n"
  37.   )
  38. )
  39.  
  40.  
  41. ; Controlla spazio su disco
  42. (set disk-space(getdiskspace @new-dest))
  43.  
  44. (if (< disk-space size_of_hp)
  45.   (abort
  46.     "Insufficient disk space in\n"
  47.     @new-dest "\n\n"
  48.     "HIT TILES 2 SPECIAL EDITION requires at least\n"
  49.     size_of_hp " bytes of empty disk space\n"
  50.   )
  51. )
  52.  
  53.  
  54. ; Assegna destinazione
  55. (makeassign "assigns" @new-dest)
  56.  
  57.  
  58. ; Controlla se è già presente una directory "HitTiles2SE"
  59. (if (exists "assigns:HitTiles2SE")
  60.   (
  61.  
  62.     (message "\nDirectory already exists!\n\n"
  63.              "The old files will be updated")
  64.   )
  65. )
  66.  
  67.  
  68. ; Crea directory
  69. (makedir "assigns:HitTiles2SE")
  70. (makedir "assigns:HitTiles2SE/Docs")
  71. (makedir "assigns:HitTiles2SE/GFX")
  72. (makedir "assigns:HitTiles2SE/MUSIC")
  73. (makedir "assigns:HitTiles2SE/SFX")
  74. (makedir "assigns:HitTiles2SE/TILES")
  75. (makedir "assigns:HitTiles2SE/TilesPics")
  76.  
  77.  
  78. ; Copia icone scelte
  79. (
  80.   (set hardy
  81.     (askbool
  82.       (prompt #icone-install)
  83.       (help #help-askbool)
  84.     )
  85.   )
  86.   (if (= hardy 1)
  87.     (
  88.       (copyfiles
  89.       (source "8ColoursIcons")
  90.       (dest "assigns:HitTiles2SE")
  91.       (optional "force")
  92.       (all))
  93.     )
  94.     (
  95.       (copyfiles
  96.       (source "HitTiles2SE.info")
  97.       (dest "assigns:HitTiles2SE")
  98.       (optional "force"))
  99.       (copyfiles
  100.       (source "IffToTiles.info")
  101.       (dest "assigns:HitTiles2SE")
  102.       (optional "force"))
  103.     )
  104.   )
  105. )
  106.  
  107.  
  108. ; Copia files
  109. (copyfiles
  110. (source "GFX/Dest.icon")
  111. (dest "assigns:")
  112. (newname "HitTiles2SE.info")
  113. (optional "force"))
  114.  
  115. (copyfiles
  116. (source "HighScore.HT2SE")
  117. (dest "assigns:HitTiles2SE")
  118. (optional "force"))
  119.  
  120. (copyfiles
  121. (source "Docs.info")
  122. (dest "assigns:HitTiles2SE")
  123. (optional "force"))
  124.  
  125. (copyfiles
  126. (source "HitTiles2SE")
  127. (dest "assigns:HitTiles2SE")
  128. (optional "force"))
  129.  
  130. (copyfiles
  131. (source "IffToTiles")
  132. (dest "assigns:HitTiles2SE")
  133. (optional "force"))
  134.  
  135. (copyfiles
  136. (source "SetupAGA.HT2SE")
  137. (dest "assigns:HitTiles2SE")
  138. (optional "force"))
  139.  
  140. (copyfiles
  141. (source "SetupECS.HT2SE")
  142. (dest "assigns:HitTiles2SE")
  143. (optional "force"))
  144.  
  145. (copyfiles
  146. (source "TilesPics.info")
  147. (dest "assigns:HitTiles2SE")
  148. (optional "force"))
  149.  
  150. (copyfiles
  151. (source "Docs")
  152. (dest "assigns:HitTiles2SE/Docs")
  153. (optional "force")
  154. (all))
  155.  
  156. (copyfiles
  157. (source "GFX")
  158. (dest "assigns:HitTiles2SE/GFX")
  159. (optional "force")
  160. (all))
  161.  
  162. (copyfiles
  163. (source "MUSIC")
  164. (dest "assigns:HitTiles2SE/MUSIC")
  165. (optional "force")
  166. (all))
  167.  
  168. (copyfiles
  169. (source "SFX")
  170. (dest "assigns:HitTiles2SE/SFX")
  171. (optional "force")
  172. (all))
  173.  
  174. (copyfiles
  175. (source "TILES")
  176. (dest "assigns:HitTiles2SE/TILES")
  177. (optional "force")
  178. (all))
  179.  
  180. (copyfiles
  181. (source "TilesPics")
  182. (dest "assigns:HitTiles2SE/TilesPics")
  183. (optional "force")
  184. (all))
  185.  
  186.  
  187. ; Copia KEY
  188. (copyfiles
  189. (source "HitTiles2SE.key")
  190. (dest "assigns:HitTiles2SE")
  191. (optional "force")
  192. (all))
  193.  
  194.  
  195. ; Cancella Dest.icon
  196. (delete "assigns:HitTiles2SE/GFX/Dest.icon" (safe) (optional "force"))
  197.  
  198.  
  199. ; Ciao ciao
  200. (set @default-dest @new-dest)
  201.